home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / 93src.lha / src / parse / ml.grm.sig < prev    next >
Encoding:
Text File  |  1993-01-27  |  3.3 KB  |  86 lines

  1. signature ML_TOKENS =
  2. sig
  3. type ('a,'b) token
  4. type svalue
  5. val AQID: (FastSymbol.raw_symbol) *  'a * 'a -> (svalue,'a) token
  6. val OBJL: (string) *  'a * 'a -> (svalue,'a) token
  7. val ENDQ: (string) *  'a * 'a -> (svalue,'a) token
  8. val BEGINQ:  'a * 'a -> (svalue,'a) token
  9. val VECTORSTART:  'a * 'a -> (svalue,'a) token
  10. val FUNSIG:  'a * 'a -> (svalue,'a) token
  11. val ANDALSO:  'a * 'a -> (svalue,'a) token
  12. val ORELSE:  'a * 'a -> (svalue,'a) token
  13. val RPAREN:  'a * 'a -> (svalue,'a) token
  14. val RBRACKET:  'a * 'a -> (svalue,'a) token
  15. val RBRACE:  'a * 'a -> (svalue,'a) token
  16. val LPAREN:  'a * 'a -> (svalue,'a) token
  17. val LBRACKET:  'a * 'a -> (svalue,'a) token
  18. val LBRACE:  'a * 'a -> (svalue,'a) token
  19. val COMMA:  'a * 'a -> (svalue,'a) token
  20. val COLON:  'a * 'a -> (svalue,'a) token
  21. val ASTERISK:  'a * 'a -> (svalue,'a) token
  22. val WITHTYPE:  'a * 'a -> (svalue,'a) token
  23. val WITH:  'a * 'a -> (svalue,'a) token
  24. val WILD:  'a * 'a -> (svalue,'a) token
  25. val WHILE:  'a * 'a -> (svalue,'a) token
  26. val VAL:  'a * 'a -> (svalue,'a) token
  27. val TYPE:  'a * 'a -> (svalue,'a) token
  28. val THEN:  'a * 'a -> (svalue,'a) token
  29. val STRUCTURE:  'a * 'a -> (svalue,'a) token
  30. val STRUCT:  'a * 'a -> (svalue,'a) token
  31. val SIGNATURE:  'a * 'a -> (svalue,'a) token
  32. val SIG:  'a * 'a -> (svalue,'a) token
  33. val SHARING:  'a * 'a -> (svalue,'a) token
  34. val REC:  'a * 'a -> (svalue,'a) token
  35. val RAISE:  'a * 'a -> (svalue,'a) token
  36. val OVERLOAD:  'a * 'a -> (svalue,'a) token
  37. val OPEN:  'a * 'a -> (svalue,'a) token
  38. val OP:  'a * 'a -> (svalue,'a) token
  39. val OF:  'a * 'a -> (svalue,'a) token
  40. val NONFIX:  'a * 'a -> (svalue,'a) token
  41. val LOCAL:  'a * 'a -> (svalue,'a) token
  42. val LET:  'a * 'a -> (svalue,'a) token
  43. val INFIXR:  'a * 'a -> (svalue,'a) token
  44. val INFIX:  'a * 'a -> (svalue,'a) token
  45. val INCLUDE:  'a * 'a -> (svalue,'a) token
  46. val IN:  'a * 'a -> (svalue,'a) token
  47. val IF:  'a * 'a -> (svalue,'a) token
  48. val HASH:  'a * 'a -> (svalue,'a) token
  49. val HANDLE:  'a * 'a -> (svalue,'a) token
  50. val FUNCTOR:  'a * 'a -> (svalue,'a) token
  51. val FUN:  'a * 'a -> (svalue,'a) token
  52. val FN:  'a * 'a -> (svalue,'a) token
  53. val DARROW:  'a * 'a -> (svalue,'a) token
  54. val DOT:  'a * 'a -> (svalue,'a) token
  55. val DO:  'a * 'a -> (svalue,'a) token
  56. val EXCEPTION:  'a * 'a -> (svalue,'a) token
  57. val EQTYPE:  'a * 'a -> (svalue,'a) token
  58. val EQUAL:  'a * 'a -> (svalue,'a) token
  59. val END:  'a * 'a -> (svalue,'a) token
  60. val ELSE:  'a * 'a -> (svalue,'a) token
  61. val DOTDOTDOT:  'a * 'a -> (svalue,'a) token
  62. val DATATYPE:  'a * 'a -> (svalue,'a) token
  63. val CASE:  'a * 'a -> (svalue,'a) token
  64. val BAR:  'a * 'a -> (svalue,'a) token
  65. val AS:  'a * 'a -> (svalue,'a) token
  66. val ARROW:  'a * 'a -> (svalue,'a) token
  67. val AND:  'a * 'a -> (svalue,'a) token
  68. val ABSTYPE:  'a * 'a -> (svalue,'a) token
  69. val ABSTRACTION:  'a * 'a -> (svalue,'a) token
  70. val STRING: (string) *  'a * 'a -> (svalue,'a) token
  71. val REAL: (string) *  'a * 'a -> (svalue,'a) token
  72. val INT0: (int) *  'a * 'a -> (svalue,'a) token
  73. val INT: (int) *  'a * 'a -> (svalue,'a) token
  74. val TYVAR: (FastSymbol.raw_symbol) *  'a * 'a -> (svalue,'a) token
  75. val ID: (FastSymbol.raw_symbol) *  'a * 'a -> (svalue,'a) token
  76. val SEMICOLON:  'a * 'a -> (svalue,'a) token
  77. val EOF:  'a * 'a -> (svalue,'a) token
  78. end
  79. signature ML_LRVALS=
  80. sig
  81. structure Tokens : ML_TOKENS
  82. structure ParserData:PARSER_DATA
  83. sharing type ParserData.Token.token = Tokens.token
  84. sharing type ParserData.svalue = Tokens.svalue
  85. end
  86.